30000		SUBROUTINE PLOT(I,J,K)
30010		COMMON/DPY/ST(4252)
30105	CC	EQUIVALENCE (N,ST)
30200		DIMENSION N(128)
30210		IF(JJ)GO TO 4
30220		L=1
30237		N(1)=127
30255		CALL PUTFIL('PLT')
30277		JJ=-1
30300	4	IF(K.EQ.99)GO TO 1
30400		L=L+1
30500		CALL PAC(N(L),I)
30550	CC	N(L)=J+5000+(I+5000)*10000+(K+4)*100000000
30575	C PACKS   PX000Y000
30600	3	IF(L.LT.128)RETURN
30700	2	CALL FASTOU(N,128)
30800		L=1
30900		RETURN
31000	CC1	N(1)=L-1
31110	1	DO 10 K=L,128
31120	10	N(K)=3
31140		CALL FASTOU(N,128)
31200		CALL FINFIL
31250		JJ=0
31275		CALL EXIT
31300		END